home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / dec dump.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  535b  |  32 lines
  1. 10 REM DUMP
  2. 11 POKE53280,0:POKE53281,0
  3. 12 PRINT "[147] DUMP A FILE IN DEC."
  4. 14 PRINT "NAME OF FILE ";
  5. 16 INPUT F$
  6. 20 OPEN15,8,15:GOSUB200
  7. 21 C=0
  8. 22 OPEN5,8,5,"0:"+F$+"*,R"
  9. 25 GOSUB200
  10. 26 PRINT"[158]";RIGHT$(STR$(100000+C),5);"[153]: ";
  11. 28 FOR I=1 TO 8
  12. 30 : GET #5,X$
  13. 31 : C=C+1
  14. 32 : IF ST AND 64 THEN 90
  15. 35 : IF LEN(X$)=0 THEN X=0:GOTO 38
  16. 36 : X=ASC(X$)
  17. 38 : X$=STR$(1000+X)
  18. 39 : X$=RIGHT$(X$,3)
  19. 40 : PRINT X$;" ";
  20. 41 IFINT(C/160)=C/160THENGOSUB300
  21. 42 NEXT
  22. 44 PRINT
  23. 50 GOTO 25
  24. 90 GOSUB200
  25. 100 CLOSE5:GOSUB200:CLOSE15
  26. 110 END
  27. 200 INPUT#15,AA$,BB$,CC$,DD$:IFAA$="00"THENRETURN
  28. 210 PRINT:PRINTAA$;"  ";BB$;"  ";CC$;DD$:PRINT
  29. 220 RETURN
  30. 300 GETZ$:IFZ$=""THEN300
  31. 310 PRINT" ":RETURN
  32.